From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 30 Jan 2025 21:45:34 +0000 (-0400)
Subject: add windows debug
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~6^2~175
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=76bfdf6a0348211ecfe934c93f6a1f08bd537660;p=git-annex.git

add windows debug
---

diff --git a/Annex/ReplaceFile.hs b/Annex/ReplaceFile.hs
index 3af555d39d..7c42532acb 100644
--- a/Annex/ReplaceFile.hs
+++ b/Annex/ReplaceFile.hs
@@ -63,6 +63,7 @@ replaceFile' createdirectory file checkres action = withOtherTmp $ \othertmpdir
 	let basetmp = relatedTemplate' (P.takeFileName file)
 #else
 	let basetmp = toRawFilePath "t"
+	liftIO $ hPutStrLn stderr $ show ("replaceFile debug", file, P.takeFileName file, relatedTemplate' (P.takeFileName file))
 #endif
 	withTmpDirIn (fromRawFilePath othertmpdir) (toOsPath basetmp) $ \tmpdir -> do
 		let tmpfile = toRawFilePath tmpdir P.</> basetmp